home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / Perl5 / lib / getcwd.pl < prev    next >
Encoding:
Text File  |  1995-03-20  |  119 b   |  12 lines  |  [TEXT/MPS ]
  1. # By Brandon S. Allbery
  2. #
  3. # Usage: $cwd = &getcwd;
  4.  
  5. sub getcwd
  6. {
  7.     # The Mac implementation is trivial
  8.     `pwd`;
  9. }
  10.  
  11. 1;
  12.